home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / randomModels / box.eve < prev    next >
Encoding:
Text File  |  1995-03-22  |  927 b   |  38 lines
  1. set xMin 0 
  2. set xMax 1 
  3. set yMin 0 
  4. set yMax 1 
  5. set zMin 0 
  6. set zMax 1 
  7.  
  8. proc drawBox {xMin xMax yMin yMax zMin zMax} {
  9.  
  10.   set nPolys 6
  11.   set nVerts {4 4 4 4 4 4 }
  12.   set verts  {3 2 6 7 \
  13.               2 1 5 6 \
  14.               1 0 4 5 \
  15.               0 3 7 4 \
  16.               7 6 5 4 \
  17.               0 1 2 3 }
  18.   set bb(0) $xMin
  19.   set bb(1) $xMax
  20.   set bb(2) $yMin
  21.   set bb(3) $yMax
  22.   set bb(4) $zMin
  23.   set bb(5) $zMax
  24.   set thePointsOfACube "$bb(0) $bb(3) $bb(5) \
  25.                         $bb(1) $bb(3) $bb(5) \
  26.                         $bb(1) $bb(3) $bb(4) \
  27.                         $bb(0) $bb(3) $bb(4) \
  28.                         $bb(0) $bb(2) $bb(5) \
  29.                         $bb(1) $bb(2) $bb(5) \
  30.                         $bb(1) $bb(2) $bb(4) \
  31.                         $bb(0) $bb(2) $bb(4)"
  32.  
  33.   PointsPolygons $nVerts $verts P $thePointsOfACube
  34. }
  35.  
  36. startShape aBox
  37.   EveProc {drawBox $xMin $xMax $yMin $yMax $zMin $zMax}
  38. endShape